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VAX=-11 CONVERT/RECLAIM 


VAX/VMS Operating system 


This module contains routines to handle index records. 


C 

SWING POINTER 
REMOVE _INDEX_RECORD 
RECOMPRESS_RECORD 


Peter Lieberwirth Creation Date: 2-Sep-1981 


T™K0001 Todd M. Kets 03-F eb-1983 
Add support for Recovery Unit Journalling and RU ROLLBA 
Recovery of ISAM files. 


routine SeUtan PR iat Suceet has_ been modified to 
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Bliss-32 
SMASTER:C 


CK 


squish 


Th 
or leery data records that are marked RU_DELETE and re-format 


primary data records that have been marked RU_UPDATE. 


The routine SQUISH_SIDR_BUCKET has been modified to squ 
SIDR array elementS that are marked RU_DELETE. 


NOTE: The routine SQUISH_SIDR_BUCKET is eiper tenet all 
t doesn’t squish out 232* I plan on 
s until a massive re-write can be done. 


Keith B. Thom 


ish 


wrong. 


eaving it the way it 


KOTOS96 pson 2-Nov-1982 
Fix some bugs in squish_primary_bucket and squish_sidr_bucket 


KBT0389 Keith B. Thompson 28-0c t-1982 
Add support for prologue 3 sidrs and do record level 
space reclamition 

KBT0357 Keith ¢. Thompson 6-0c t-1982 
Use new merged ctx definitions 


KBT0354 Keith 8. Thompson 5-0c t-1982 
Use new Linkage definitions 
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v03-003 3 T0046 Keith Thomps 12-Apr-1982 
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v03-002 KBT0042 Keith Thompson 3-Apr-1982 
Add routines to compare and swing index seinters 
v03-001 — 5—* Keith Thompso 29-Mar-1982 


Do not reclaim data buckets with zero id 
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tee ti BUCKET _EMPTY eae TSBs F3i72568 clbul She arecurec.e3204%* cas 
? SBTTL "BUCK 


iv EMPTY* 
LOBAL ROUTINE RECLSSBUCKET_EMPTY : RLSJSB_REG_9 = 


Functional Description: 


Wn 


This routine determines if a bucket is empty. It handles both 
index level and data level buckets. 


Calling Sequence: 
RECLSSBUCKET_EMPTY(); 
Input Parameters: 
None. 
Implicit Inputs: 
BUCKET - address of buffer containing bucket 
Output Parameters: 
None. 
Implicit Outputs: 
RECLSGL_BUCKET_COUNT is incremented. 
Routine Value: 
| 
| 


wm 


EVI OOONOUS Ki 


TRUE if bucket is empty 
FALSE if bucket is not empty or can't be reclaimed 


Ooo WH" OODNAULS WOO 


Routines Called: 


SQUISH_PRIMARY BUCKET 
SQUISH~SIDR_BUCKET 


Side Effects: 
None. 


BEGIN 


RAL 
RECLS_DATA LEVEL = 0, 
RECL$~BUCKET_EMPTY = 1, 
RECLS"BUCKET-NOT_EMPTY = 0: 


! Determine if bucket is data level or index level 
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VAX=11 CONVERT/RECLAIM 15-50 -1 2 § 259:4 VAX-11 Bliss-32_V4.0-742 9 
BUCKET _ERPYE ~3ep-13h6 $2:40508 — DERKSVMGMASTERSCCONY, SR IRECLREC 83207" ( 
1 } 
} eee C BKTSB_LEVEL J EQLU RECLS_DATA_LEVEL 
1 
: : Determine key 
1 if .KEY_DESC C KEYSB_KEYREF J EQL 0 
1 3 THEN 
: SQUISH_PRIMARY_BUCKET() 
8 SQUISH_SIDR_BUCKET(); 
138 : See if it's empty 
195 i NOTE: ys! reclaim the last bucket in a level, due to the complexity of 
138 : updat ing high key values in all the levels above. This is not a serious 
19 ! restriction since most reclamation will be of aging buckets early in 
138 collating sequence. 
00 if ( .BUCKET C BKTSW_KEYFRESPC ] NEQU BKTSC_OVERHDSZ ) OR 
8 THEN BUCKET C BKTSV_LASTBKT J 
0 08 RETURN RECLS_BUCKET_NOT_EMPTY 
8 RETURN RECLS_BUCKET_EMPTY 
0 09 END; 


-TITLE Naat VAX=11 CONVERT/RECLAIM 
IDENT \v04-0 


-PSECT SOWNS,NOEXE ,2 


00000 INDEX: .BLKB 4 
00004 VBN_OFFSET: 


LKB 
00008 VBN_ FREE. “SPACE: 


0000C KEY_BUFFER 1: 
BCK KB go” 


80110 KEY BUFFER” a 
-BCKB 257 


-EXTRN CONVSSRMS READ. ory 
-EXTRN RECLSGL_BOCKET~ COUNT 
-EXTRN RECLSGL_ SEARCH BUFFER 
~EXTRN CONV TF 

-EXTRN CONVSAB_OUT-RAB 


«PSECT SCODES,NOWRT,2 


OC AY 95 00000 RECLSSBUCKET_EMPTY:: 
TSTB™ 12(BUCKET) : 0182 


38 —WR PTB $3 cxey_pesc) > 0187 


i 
— OE NO PS Oe DE NS OE I NS TY SS eR EL ci, 


yds tt es ll ala 15-Feo-198 43:72:08 MoS counGmAgTeRschony See IRECLREC.B3264°" «4 


BNEQ 18 : 
0000v A BSW QUISH. PRIMARY_BUCKET : 0189 

Vv : W QUISH_SIDR_BUCKET : 
cc ox 7H" BY HED, JE: Ene Seubeeedd nyu : 883 
03 OD Ag F 1 BLBC (BUCKET), 4$ : 9201 
5 8 4 38: 3 R : 5 

50 01 F 4$: MOVL #1, RO : 
2 RSB : 0207 


: Routine Size: 535 bytes, Routine Base: S$CODE$S + 0000 


vor~000. 
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ISH_PRIMARY BUCKET’ 

SH_PRIMARY BUCKET : RL$JSB_REG_9 NOVALUE = 

i Functional Description: 

Suqishes the deleted records out of the primary data buckets 
i Calling Sequence: 

SQUISH_PRIMARY_BUCKET() 


i Input Parameters: 
None 


BUCKET - address of buffer containing bucket 
KEY_DESC 


i Output Parameters: 
None 

i Implicit Outputs: 
None 

i Routine Value: 
None 
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: Implicit Inputs: 
t 

q 

J 

t 

I 

1 

1 

t 

‘ 

: Routines Called: 
: None. 
Side Effects: 
: None. 

q 

BEGIN 


DEF INE_BUCKET; 
DEF INE~KEY_DESC; 


LOCAL 


POINTER 

RECORD_CTRL : REF BLOCK C ,BYTE J; 
: Point to the first record in the bucket — 
POINTER = BKTSK_OVERHDSZ + .BUCKET; 
LAST = .POINTER; 
: Count the bucket 
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Dt 
RECLSGL_BUCKET_COUNT = .RECLSGL_BUCKET_COUNT + 1; 
: If this bucket has an id of zero then don't bother reclaiming it 
ead C BKTSW_NXTRECID J EQLU 0 
RETURN; 
: Loop untill we have looked at all of the records 
pares -POINTER LSSU ( .BUCKET £ BKTSW_FREESPACE ] + .BUCKET ) 
BEGIN 
: Point to the control bytes of the record 
RECORD_CTRL = .POINTER; 


! If this record not deleted check to see if there were any deleted 


} records before it, if so squish them out 
if NOT (RECORD. CTRL C IRCSV_DELETED 
-RECORD_CTRL C IRCS$V_RU_DELETE J) 
THEN 
BEGIN 
LOCAL SQUISH; 


! The current record is not deleted so squish out the 
: deleted ones if there where any 


SQUISH = .POINTER - .LAST; 
IF .SQUISH NEQ 0 
THE 
BEGIN 
LOCAL BYTES; 
: Number of bytes left in the bucket 


BYTES = ( .BUCKET + .BUCKET C BKTSW_FREESPACE ) ) - .POINTER; 


: Move the rest of the records 
CHSMOVE( .BYTES, .POINTER,.LAST ); 
H Update the bucket pointer 


BUCKET C BKTSW_FREESPACE ] = .BUCKET C BKTSW_FREESPACE ) —— 


Update our pointers 


POINTER = .POINTER = .SQUISH; 
RECORD_CTRL = .POINTER 
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END; 
: If the current non-deleted primary data record is marked RU_UPDATE 
then re-format at this time. 
if .RECORD CTRL C IRCSV_RU_UPDATE J 
THEN 
BEGIN 
LOCAL 
BYTES 
FAKE SIZE : WORD, 
TRUE SIZE : WORD; 
! Turn of the RU_UPDATE bit and retrieve the record's true size 
and the number of bytes in the bucket it currently occupies. 
RECORD 8 C_IRCSV_RU_UPDATE J) = 
—— E = .RECORD-CTRL C 9,0 16 
TRUE-SIZE = .(.RECORD CTRL + .FAKE Nie + 9)<0,16>; 
' Place the true size of the erst Ae dose recere in the size 
! field of the resere overhead, shift the rest of the records 
! in the bucket to take up the — space, and update the 
bucket's Tresepace offset pointer. 
RECORD_ CTRL C 9,0,16,0 ] = . TRUE_SIZE; 
BYTES = .BUCKET bd = SRECORD,C C 53 FREESPACE J 
~FAKE_ erie. 
4 BYTES GTRU 0 
CHSMOVE ( .BYTES 
2R RECORD. CTRL + .FAKE_SIZE, 
»RECORD-CTRL + .TRUE_SIZE ); 
BUCKET C BKTS$wW_ FREE SPACE ] = .BUCKET C BKT$W_FREESPACE ] 
- ( .FAKE_SIZE = .TRUE_SIZE J; 
END; 
END; 


: Find the next record 
Is this record a RRV record 


if RECORD_CTRL C IRCSV_RRV ) 


! If this record has no RRV pointer then set the size to the 
smallest record there is 


IF .RECORD_CTRL C IRCSV_NOPTRSZ } 
THEN 


0- 0 
ONY SREIRECLREC.B320%°" (45 
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RECLSREC VAX-11 CONVERT/RECLAIM 18-32 1984 23:59:4 VAX-11 Bliss-32 V4.0-742 Page 11 R 
V L885 SQUISH_PRIMARY_BUCKET 127808-1382 ¢ £32568 DISKSVMSMASTER:CCONV.SRCIRECLREC.B32:1° (3) \ 
3 8 } The least case size of a record is 3 bytes (CTRL and ID) 
5 1 POINTER = .POINTER + 3 
. 5 ELSE 
89 5 ! The size of the record with an RRV pezeter is 
8 — CTRL, ID and Pointer Size (ID and VBN) 
i 58 POINTER = .POINTER + 3 + .RECORD_CTRL C IRCSV_PTRSZ ] + 4 
94 0 90 ELSE 
95 91 
8* — 3 It is not a RRV, so does it have a size field 
98 $392 if .KEY_DESC C_KEYS$V_REC_COMPR J OR 
99 0395 eKEY_DESC C KEYS? KY COMPR J] OR 
400 0396 ( .CONVSAB_OUT_FAB C FABSB_RFM J] EQL FABSC_VAR ) 
401 0397 THEN 
40 0398 
40 0399 
04 0400 ! 
—8 pees POINTER = .POINTER + .RECORD_CTRL C 9,0,16,0 J] + 11 
7 040 ELSE 
408 0404 
ot : Add the size of the record and control bytes 


040 


POINTER = .POINTER + .CONVSAB_OUT_FAB C FABSW_MRS J] + 9; 
If the last record was not deleted update the last record pointer 
IF NOT (.RECORD_CTRL C IRCSV_DELETED J 
a -RECORD_CTRL C IRCS$V_RU_DELETE J) 
LAST = .POINTER 
END; 


040 


—oo 


Update the bucket pointer to catch the last record if it was deleted 


FRERRRRERRREEE 


1 
: 
i We exit the loop under two cases, 1) the last n records were deleted 
! in which case LAST points to the first deleted record or 2) the Last 
! record was not deleted in which case LAST will be pointing to the 
END of the last record, i.e. same as freespace. 

BUCKET C BKTS$W_FREESPACE } = .LAST - .BUCKET; 

RETURN 


END; 
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4 
H 
} Add the size of the record from the size field and control 
4 
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i REC VAX=11 CONVERT/RECLAIM R 15-Sep-1984 $3: 39:68 VAX-11 Bliss-32 V4.0-742 Pp 
Vv SQUISH_SIDR_BUCKET 14-Sep-1984 12:14:0 DISKSVMSMASTER: CCONV.SRCIRECLREC.832; 
3; 4 1 1 2SBTTL ‘SQUSH_SIDR_BUCKET' 
; 4 4 ; ROUT INE SQUIS#_SIDR_BUCKET : RL$JSB_REG_9 NOVALUE = 
; 4 43546 1! 
3 at : Functional Description: 
; * sSuqishes the deleted records out of the sidr data buckets 
; 464 § 1 ! Calling Sequence: 
3; 445 40 1! 
3; 46 45 7 SQUISH_SIDR_BUCKET() 
; 44 tg 1! 
3; 448 43 1! Input Parameters: 
3; 449 44 1! None 
; 450 445 1! 
: $2) re] : : Implicit Inputs: 
3 45 $8 a BUCKET - address of buffer containing bucket 
: 654 49 1! KEY_DESC 
3; «6455 450 1! 
3 45 Be) 1 ! Output Parameters: 
; 45 26 1! None 
; 458 Bee 1! 
; 459 54 1! Implicit Outputs: 
; 460 8632 1! None 
3 461 04 — 1! 
; 46 0457 1 ! Routine Value: 
:; 46 28 1! None 
: 464 59 1! 
: 465 60 1 ! Routines Called: 
3 8 61 1! None 
3; 46 868 1! 
; 468 Bee 1! Side Effects: 
; 669 64 1! None 
; $70 0465 1! NOTE: The routine SQUISH_SIDR_BUCKET is al orishaical ly wrong. 
3 «471 pees 1! It doesn't squish out anything! I plan on leaving it the way it 
: 47 Bee 1! s until a massive re-write can be done. 
3; 47 68 1! 
: 4676 9 1 !- 
: 475 0 1 
3 47 71 BEGIN 
: 67 2 
3; 478 7 DEF INE_BUCKET; 
: 479 r DEF INE~KEY_DESC; 
3 481 7 * LOCAL 
; 4 7 LAST 
: 6 28 POINTER : REF BLOCK { ,BYTE ), 
: : ; 7 SIDR : REF BLOCK C ,BYTE J; 
: : Point to the first record in the bucket 
3 2 3 SIDR = BKTSK_OVERHDSZ + .BUCKET; 
: ony 5 : Count the bucket 
: 492 RECLSGL_BUCKET_COUNT = .RECLSGL_BUCKET_COUNT 


age 14 
i9 ) 
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CLEREC VAK=11 CONVERT/RECLAIM 15-Sep-1984 23:59:42 VAK=11_BLiss=-32_v4.0-742 ⸗ 
vOs=000 SQUISH_SIDR_BUCKET a-8ep-1986 12:16:08 DESKSVMEMASTERSCCONVSREIRECLREC.B3201°" ¢ 


los 


: Loop untill we have looked at all of the records 
WHILE «SIDR LSSU ( .BUCKET C BKTSW_FREESPACE ] + .BUCKET ) 
BEGIN 


uw 
* 


| 
} 
| 
| 
| 
H Point to the first array element 
iF .KEY_DESC C KEYSV_KEY_COMPR 
POINTER = .SIDR + .SIDOR C 2,0,8,0 ] + 4 


PAV LSSRLERR ALS SS 


PUPVPVPUPSIISIID ES BS BB BBE EEE EMMI WIA BWIA IIIA Ironing 


SBIFAPRVOOSOIEAE 


PUFULUSVSUSUSUSVSVSUSISUSIOSISISISION S™ = £= SE 


: POINTER = .SIDR + .KEY_DESC C KEYSB_KEYSZ J] + 2; 
2 LAST = .POINTER; 
9 Loop untill we have looked at all of the array elements 
3 8 aus -POINTER LSSU ( .SIDR + .SIDR C 0,0,16,0 J + 2 ) 
14 050 
\? 031 If this array elemented is deleted skip to the next one 
3 3} IF .POINTER C IRCSV_DELETED J 
19 1 -POINTER C IRCSV_RU_DELETE J 
; THEN 
§ ; Is there a pointer 
| 1 i hemes C IRCSV_NOPTRSZ J 
6 POINTER = .POINTER + 1 
5 POINTER = .POINTER + 1 + .POINTER C IRC$V_PTRSZ J] + 4 


ELSE 
BEGIN 


LOCAL SQUISH; 


! The current sidr is not deleted so squish out the 
deleted ones if there where any 


SQUISH = .POINTER = .LAST; 


REUNI—OD 


MEW OOONOULS OONOUS WOOO 


PVFUSUSUSUSVSUSVSUSISUSIOSI SU OSUST SUSI ⏑⏑ ⏑⏑ SUIT ST STIS SITTIN 


Be Se Se Se Se Se Ge Se Ge Se Ge Se Se Se Fe Ge Fe Ge Ge Se Ge Se Ge Ge Ge Ss Ge Ge Ge Ge Se Ge Se Ge SHS Ss Se Se SH Ss Be Ss Se Ss Se Se Se Se Os Se 5 Se SH Ss Sees 


SOGOSOSOSOOOCOOOGOOOOOOOOOOOooooooooo 


à PUPVUPVDPUPVDUPUDUPUSU SUSU STFU 


9 
40 IF .SQUISH NEQ 0 
41 THEN 
‘ BEGIN 
44 LOCAL BYTES; 
45 40 
r 8 Number of bytes left in the bucket 
368 ‘§ BYTES = ( .BUCKET + .BUCKET [ BKTSW_FREESPACE ] ) = .POINTER; 


45 


Oco 


wr 
DOOSCSCSCO: 
pAb Ap Ab Ap Ap Apap 

EW ODDNAUNE — 


——— 


—— 
oo 


Be Se Se Ge Se Ge Se Ge Se Se Se Se Se Ge Se Ge Se Ge Se Ge Ge FF Ge Fe Ge Se Ge Se Ge Se Ge Se Ge Se Se Gs Ss BH Ke Se Se Ss Oe SF Se Se Se Ss Se G5 Se SOs Se Sees 


056 
057 
057 
057 
5 057 
579 057 
380 057 
581 057 
Oe 
584 0879 
585 0580 
one 2 1 
89 5 
eB 
4 389 
i 
94 
95 90 
91 
9 59 
98 9 
SOR 
OR 
9 
604 335 
605 


meas Wal 


APU WWIII BB BEE EEE EEE PUP WWUE BBE BEB PUM 
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ONVERT /RECLAIR 18-Sep-1984 25:59 


g VAX-11 Bliss-32 


74 

14-Sep- 70 
Move the rest of the records 
CHSMOVE( .BYTES,.POINTER,.LAST ); 
Update the bucket pointer 
BUCKET C BKTSW_FREESPACE ] = .BUCKET C —9 J : — 

Update the sidr record size 

SIDR C 0,0,16,0 J] = .SIDR C 0,0,16,0 J] - .SQUISH; 

Update out pointers 

POINTER = .POINTER = .SQUISH; 

END; 
H Find the next sidr element 
POINTER = .POINTER + 1 + .POINTER C IRCSV_PTRSZ J] + 4; 
LAST = .POINTER 


Is the sidr array completely deleted 


if . 
THEN 


ELSE 


END; 
RETURN 
END; 


POINTER EQL ( .SIDR + .SIDR C 0,0,16,0 J ) 
BEGIN 


! Squish out the entire record (leaving SIDR pointing to the 
: next sidr record) 


CHSMOVE( .SIDR C 0,0,16,0 3,.POINTER,.SIDR ); 
: Update the bucket pointer 


BUCKET {C BKTSW_FREESPACE } = .BUCKET C BKTSW_FREESPACE J] - 
~SIDR C 0,0,16,0 J 


: If we don't squish the record find the next cne 
SIDR = .SIDR + .SIOR C 0,0,16,0 ) + 2 


oO 


— — — — — — — — — — — — — — — — — — — 


oa 


=32 V4.0-742 p 
DISKSVMSMASTER: CCONV.SRCIJRECLREC.B32:1> 


| 
13 | 
RECLSREC VAX=11 CONVERT/RECLAIM 18-58 =1984 23:59:46 VAX-11 Bliss-32_V4.0-742 Page 17 
test SQUISH_SIDR_BUCKET 1a-Sep-1 4 93:32:68 DISKSVM MASTER: CCONV.SRCIRECLREC.B32:1> (6) | 
OSFC 8F BB 00000 SQUISH_SIDR_ BUCKET: 
- boca #°M<R2,R3,R4,R5,R6,R7,RB,R10> : 0432 
5E 04 g2 SUBL2 #4 ; 
é F A9 . 7 MOVAB 14(R9), SIDR + 0483 
00006 CF INCL RECLS$GL_BUCKET_COUNT + 0487 
SA 4 AD 9 F MOV 4(BUCKET) R10 + 0491 
A 13 1$ MOVZWL (R10), RO : 
3 9 ¢ 1 ADDL 2 BUCKET, RO : 
$ 5 1 CMPL IDR, RO : 
F 0001C BLSSU ; ; 
0089 31 OlF BRW $ : 
0B 10 AB 6 £€1 9 2$ BBC #6, 16(KEY_DESC), 3$ + 0497 
30 02 Ab A 0 6 MOVZBL 2(SIDR) RO + 0499 
5 04 A04 F 0 A MOV 4(RO)CSIDRI, POINTER : 
09 11 000eF BRB 4$ : 
59 146 AB 9A 00031 38: MOVZBL 0 (KEY DESC), RO + 0501 
02 A04 3 0035 MOV (RO)CSIDRJ, POINTER ; 
J 8 A 4$: MOVL _—— POINTER, LAST + 0503 
66 3C 00030 5$: MOVZWL (SIDR), R : 0507 
50 02 A046 5E 0040 MOV 2(RO)CSIDRI, RO ; 
50 57 D1 0004 CMPL POINTER, RO : 
45 1g 0048 BGEGU 108 F 
04 67 02 £0 0004A BBS #2, (POINTER), 6$ : 0512 
14 67 05 €1 OO4E BBC #5. (POINTER). 8s + 0514 
04 67 4 £1 00052 68: BBC #4. (POINTER). 7$ : 0519 
7 06 0096 INCL POINTER : 0521 
Fs 11 0005 RB 5$ F 
50 67 02 Q gr 005A 7$ xT2v. #0 " (POINTER), RO + 0523 
5 05 a4? 9 8 —*8 3 (RO) POINTER], POINTER po 
58 57 6 3 066 8$: SUBL3 LAST, POINTER, SQUISH : 83 
7 1 6A EQL $ + 0535 
50 6A 3 MOVZWL (R10), RO + 0543 
50 9 ¢ 6 ADDL2 BUCKET, RO F 
5 7 2 SUBL2 POINTER, BYTES F 
00 BE é 0 007 MOVCS BYTES, (POINTER), @LAST : 0547 
6A A2 0007A SUBW2  SQUISH, (R10) ; 055¢ 
66 A SUBW2  SQUISH, (SIDR) : 05 
C SUBL2  SQUISH. POINTER ; 0561 
50 67 08 09 FF 9$ EXTZV #0 : (POINTER), RO : 0567 
05 AO : MOVAB 5(RO)CPOINTER], POINTER : 
AB | BRB 4$ : 0569 
0 F 10$ MOVZWL (SIDR), RO : 0575 
C 9 ADDL2 SIDR, R : 
0 v 9 CMPL POINTER. RO : 
9 9 BNEG = 1 : 
66 67 66 2 A MOVC3 (SIDR), (POINTER), (SIDR) : 582 
6A 66 A } sual ae (R10) : 058? 
56 02 Ag 3 A3 11$: MOVAB é RO), SIDR ; 394 
SE * ra) AA 18: —Wie he SP : 200 
OSFC 8F BA OOOAD POPR #*M<R2,R3,R4,.R5,.R6,R7.R8,R10> : | 
| 
| 
— 


— — — — 
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RECLSREC VAX=11 CONVERT/RECLAIN 1h-$2p-1986 23:59: VAX=11 BLiss-32_V4.0-742 Page 18 
Hides SQUISH.S1DR BUCKES — Pee Ghh eta eGul Ske apecurec.es2rt” «os 
05 00081 RSB : | 
: Routine Size: 178 bytes, Routine Base: S$CODE$ + 010C | 


— — — — — — 
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CLSREC VAX-11 CONVERT/RECLAIM 14. ep-1984 :59:4 VAX-11 Bliss-32 V4.0-742 Page 19 
vite GET DOWN. POINTER 1a-8ep= 188 F3i72:68 NaS cbumGaaS Fens cYony chearecurec.e3204%" «5 
; 7 : 1 ZSBTTL ‘GET DOWN tba 
‘ 6 . } GLOBAL ROUTINE RECL GET_DOWN_POINTER ( VBN ) : RLSJSB_REG_8 = 
: 610 504 1 | 
: ei) f : ; Functional Description: 
; $8 : 1/ This routine searches the current buffer for the specified 
3 34 down pointer. 
; 616 061 Calling Sequence: 
; 68 0618 GET_DOWN_POINTER( VBN ); 
; 6 9 0614 i Input Parameters: 
3 4 ¢ 43} : VBN = VBN of bucket on level below being deleted 
3 6 4 0618 i ; Implicit Inputs: 
: 6 6 1620 1! BUCKET - address of buffer containing bucket 
3; 6 0621 1! KEY_DESC 
; 628 06 ; 1! 
3 ° 9 08 Z : Output Parameters: 
; — 1 5 : None. 
; o38 0 ; Implicit Outputs: 
; 639 $s 3 1 } If success: 
3 637 11! INDEX - number of the index record to remove (0=first) 
: 638 06 § 1! KEY_POINTER - points to key part to delete 
3; 639 06 14 KEY_BUFFER_1 = contains the expanded key bucket previous 
: 640 06 —14 to one being deleted 
: $6) 8 5 ! : KEY_BUFFER_2 - contains the expanded key of one being deleted 
; eas 8 If failure the contents of the above registers are undefined. 
; 648 9 i Routine Value: 
: ei? 1 : TRUE if down pointer found, else FALSE 
: 649 7 1 ' Routines Called: 
3 630 4 1! 
3 63 5 : None. 
; $38 $ 1 i sige Effects: 
3: 654 1! 
3; 655 § 1! None. 
83 an 
3 65 & 
; 638 § BEGIN 
; 661 5 DEF INE_CTX; 
3 666 § DEF INE_BUCKET; 
3 66 5 DEF INE~KEY_DESC; 


£15 
“11 —eeu 18-Sep-1984 $3:39 68 VAX-11 Bliss tet * 


yi dee tt ee ol 4-Sep-1 DISKSV nen ASTER:C 


.0- ⸗ 
— — — —— 


38 


DOWN 
; 658 DEF INE_KEY_POINTER; 
; * LOCAL 
; 56 VBN_OF FSET 
; 3: VBN-FREE_ SPACE; 
3 or 56 : Initialize the index which counts which record in is the down pointer. 
3 67¢ * INDEX = 0; 
3 674 56 ! Initialize offset in bucket to word containing VBN free space pointer 
: $7? 669 so we can get the actual offset to the VBN free space. 
3 ef? 4: VBN_OFFSET = .CTX C CTXS$SW_BUCKET_SIZE ] = 2 = 2; 
; er D6 : Get actuai offset of VEN free space. 
3 681 0¢ VBN_FREE_SPACE = .BUCKET C .VBN_OFFSET, 0, 16, 0 J; 
4 ret Osr8 Now point to first VBN down pointer. 
3 685 3 VBN_OFFSET = .VBN_OFFSET = ( .BUCKET C BKTSV_PTR_SZ J] + 2); 
; es? 1 : Scan the VBNs to see if the down pointer is in this bucket. 
3 689 j UNTIL .VBN_OFFSET LEQA .VBN_FREE_SPACE 
: $3 5 * 
8 — Compare the VBN value pointed to by VBN_OFFSET. 
3 694 0688 iF .BUCKET C .VBN_OFFSET,O,((.BUCKETC BKTS$V_PTR_SZ ] + 2) * 8), 0 ] EQLU 
3; 695 9 - VBN 
3 696 90 THEN 
3; 69 91 
3; 698 9 ! We found the down pointer, so point KEY_POINTER to the key part 
; $99 Beer of the index record. 
; 701 95 if .KEY_DESCC KEYSV_IDX_COMPR } 
3; 70 38 THEN 
3 Ait +44 BEGIN 
: 705 99 ! The hey is compressed, so each key part is variable length. 
3; 706 i INDEX is currently an index to the right record, so 
3 708 — 1 skip over that many records. 
; 709 , KEY_POINTER = .BUCKET + BKTSK_OVERHDSZ; 
; 711 705 INCR I FROM 0 TO .INDEX = 1 
3 9 7 dO 
3 at 2 BEGIN 
3 215 709 4 ! Move the key into the buffer while expanding 
3 rig at & i the rear end truncation 
: qt q 4 k int | 
3 : ey_pointer 
: HS ag i vf 
: 720 714 4 [_ = | genanceseee 
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} ~ thies t 

} \ \ fill \ 

key_buffer_1 {Lic! ' 

' 

! filled in when se ( ao & gre fires key 
in the buck 

CHSCOPY( src_len, src, fill, dst_len, dst ) 

¢ 


HSCOPY( .KEY_POINTER C KEYRSB_LENGTH J, 
HEY, POINTER + 


.REY_POINTER + 1 + 
KEY POINTER { KEVRSB_LENGTH J ), 
.KEY_DESC C "KEYSB - 


y POSTER KEYRSB_FRONT_COUNT J, 
KEY_BUFFER_ is aie: 
* KEY “POINTER C KEYRSB_FRONT_COUNT J ); 


Skip to the next key. 


KEY_POINTER = .KEY_POINTER + 2 + 
-KEY-POINTER C KEYRSB_LENGTH J 
END; 


Fill in keybu butter .é with the expanded CURRENT sf 

first ey stuffing the 4 compresed characters — 

the previous key in ke I⸗ buffer_1 then copy the r 

from the bucket extending it if rear truncation F present 


key_pointer 


key_buffer_1 ilici 


key_buffer_2 ilici : : : 


filled in when from key.b mere ri 
or from .key_pointer when 
Fill in the front if there were front compression 


CHSMOVE ( gee’ routes c KEYRSB_FRONT_COUNT J, 
Y_BUFFER_1 + 2, 
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13 
VAX=11 CONVERT/RECLAIM 18-se =1984 23:59:4 
INTER 12-805-1 388 93:32:68 
KEY_BUFFER_2 + 2); 
Copy the rest of the key and expand the rear if neccessary 
CHSCOPY( .KEY_POINTER C KEYRSB_LENGTH J, 
KEY POINTER + 2, 
.( REY yee +1+¢ » Santen C KEYRSB_LENGTH J) ), 
eKEY_DESC C KEYSB8_KEYSZ J] = 
KEY_POINTER C KEYRSB_FRONT_COUNT J, 


KEY_BUFFER_2 + 2 ¢ 
-KEY_POINTER C KEYRSB_FRONT_COUNT J ); 


32 V 
R:CC 


RETURN RECLS$_SUCCESS 
END 

ELSE 
BEGIN 


! The key is not compressed, so the key part is fixed length 
and easy to find. 


KEY_POINTER = ( .INDEX * .KEY_DESCC KEYSB_KEYSZ J ) 
+ ,BUCKET + BRTS$K_OVERHDSZ; 


RETURN RECL$_SUCCESS 
END 


— 


ELSE 
BEGIN 


: This was not the down pointer, so get the next down pointer 


VBN_OFFSET = .VBN_OFFSET = ( .BUCKETC BKTSV_PTR_SZ ] + 2 ); 
INDEX = .INDEX + T; 


END; 
! If we fell through the UNTIL - DO loop it means we didn't find a down 
: pointer. 


RETURN RECLS$_FAILURE 
END; 


OOFC 8F 8B 00000 RECLSSGET _DOWN_POINTER:: 
POSHR ~ #*M<R2,R3,R4,R5,R6,R7> 


ee SUBL2 #12, SP 
GR Hitt an ors 
6 03 ¢ F SUBL2 #3, VBN.OFFSET 


4 .0-74 : / 
OW -SREIRECLREC.B32047" (95 


RECLSREC VAX=11 CONVERT/RECLAIM 
VOC CT DOWN POINTER’ : 
a 
04 AE OD Ag — 
50 
08 AE 
50 04 55 
51 6649 3 
28 «AE 
54 10 
58 
6E 
57 36 
51 
51 01 47 02 AB 
58 
d9 $f 
0000" CF 0000" CF 
50 
51 
51 
51 01 A048 02 AB 
5 
30 
50 
50 56 
56 
5E 


3; Routine Size: 204 bytes, 


Routine Base: 


z: 
04 =A 
FE A 


« 


01 4 
14 

; 
0000°CF4 
02. A 
0000" CF 
01 ag 

5 
14 ae 

; 
0000°CF4 
OE 

14 AB 
0000° CF 
OE A940 
01 

12 
04 Ar 

F A 
0000" CF 
"i 

C 

OOF C F 
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259: VAX-11 Bliss-32 V4.0-742 P 3 
REP Sot tS ee et 
PUSHAB =(VBN_OFFSET) (BUCKET) 
ROVZUL 3*3. yen PREE SPACE 
EXT y #2, 13(BUCKET), 4(SP) 
SUBL3 4(§P), VBN_OFFSET, RO 
MOVAB 2(ROS, VBR_OFFSET 
CMPL N_OFFSET, VBN_FREE_SPACE 
BGTRU 
BRW ; 
ASHL. #3, 4(SP), RO 
ADDL2 #16, 
EXTZV #0, RO, (VBN_OFFSET)CBUCKETI, R1 
CMPL Ri VBN 
BNE $ 
BBC #3, 16(KEY_DESC), 5$ 
MOVAB 14(R9), KEY_POINTER 
MNEGL #1, I 
BRB 4$ 
MOVZBL (KEY_POINTER), R2 
ADDL3 2, REY_POINTER, R7 
MOVZBL 1(KEY POINTER), RO 
MOVZBL é (KEY_DESC), R1 
SUBL . RI 
MOVES R2, 2(KEY_POINTER), 1(R7), RI. - 
KEY BUFF R_1+2CR0J 
MOVAB 2(R7), KEY-POINTER 
AOBLSS INDEX, 1, 3$ 
mOVZBL (KEY POINTER), R7 
MOVCS 7, KEY_BUFFER.1+2, KEY_BUFFER_2+2 
MOVZBL (KEY POINTER), RO 
MOVZBL 20 (KEY DESC), R1 
SUBL2  R7, RI 
MOVCS RO. 2(KEY POINTER) 1(RO)CKEY_POINTER], - 
“ah Ri. KEY_BOFFER_2+2CR7) 
mOVZBL 20 cxev.pesc>, RO 
MULL INDEX R 
MOVAB 4 (BUCKET) CROJ, KEY_POINTER 
MOVL #1, R 
BRB 9$ 
SUBL3 4(SP), VBN_OFFSET, RO 
MOVAB -2(ROS, VBR_OFFSET 
INCL INDEX 
BRW 5 
CLRL RO 
ADDL2 #12, sp 
POPR #°M<R2,R3,R4,R5,R6,R7> 
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14 | 
RECLSREC VAX-11 CONVERT/RECLAIM 18-06 1984 59:4 VAX-11 Bliss-32 V4.0-74 Page 24 f 
vos CHECK _LAST 122808= 1382 73 14 6 DISKSVMSMASTER: LCONV. SRCIRECLREC.B32:1° B \ 
; 825 18 1 XSBTTL 'CHECK_LAST’ | 
3 — 1 ! GLOBAL ROUTINE RECLSSCHECK_LAST : RLSJSB_REG_8 = 
3 ! 
; 8 ; 39 
5 é 3 n ¢ ! } Functional Description: | 
; 831 6 41! This routine checks to see if the current index record 
; & ¢ 8 —— indexed by INDEX is the Last record in the bucket and if it 
; 85 § 14 is the only record 
3 te 08 1! 
3 839 0828 1 ! Calling Sequence: 
; £38 8 9 1! 
; 8 01 CHECK_LAST(); 
; 838 tt 1! 
3; 839 08 ; 1 ! Input Parameters: 
: 840 oes 1! none 
3 «841 0834 1! 
3 ek 0835 1 ! Implicit Inputs: | 
3; 84 0836 1! 
: 844 0837 1! BUCKET - address of buffer containing bucket | 
; Ste 83 INDEX - current index record (set by get_down_pointer 
: 847 0840 1 ! Output Parameters: 
; 848 0841 1! 
3 849 pees 1! None. 
; 850 0843 1! 
3 851 0844 1 ! Implicit Outputs: 
; HE 0845 1! none 
; 85 88 1! 
3; ©6854 0847 1 ! Routine Value: 
; 855 0848 1! 
; 856 0849 1! RECLS_SUCCESS = index record IS the last in bucket and there more 
3 33 8 1! then one record in the bucket 
; 858 4 177! RECLS_FAILURE = index record IS NOT the Last in bucket or is the 
; 859 26 1! only one in the bucket 
3; 860 853 1! 
3; 861 0854 1 ! Routines Called: 
3 * 0855 1! 
; 86 bees 1! None. 
: 864 857 1! 
3; 865 858 1 ! Side Effects: 
3 859 1! 
: 7 860 | None. | 
g 
: 9 B62 1— 
3 865 1 
$ ace BEGIN 
3 Bee DEF INE_CTX; 
3 DEF INE_BUCKET; 
3 z DEF INE~KEY_DESC; 
; DEF INE-KEY-POINTER; | 
: 9 LOCAL 
3 7 VBN_OF FSET 
; ie LAST_VBN_OFFSET; 
. 


~] 
14 
RECLSREC VAX-11 CONVERT/RECLAIM 1 ~300n 1386 ; 259:4 VAX-11 Bliss-32 V4.0-742 Pa ase 25 
V CHECK_LAST 14-Sep-1 14:0 DISKSVMSMASTER: CCONV. SRCIRECLREC.B32;1 ( | 
: 88 0875 ! We can always reclaim the first record (even if its the last because the | 
3 Mt 6 whole bucket will then be recalimed) | 
: B89 4: if .INDEX EQL 0 | 
3 M4 7 THEN 
$ 33 RETURN RECLS_FAILURE; 
: 889 oe ¢ ! Initialize offset in bucket to word containing VBN free space pointer 
; 530 8 Bs so we can get the actual offset to the VBN free space. 
; 8 5 VBN_OF FSET = .CTX C CTX$W_BUCKET_SIZE J - 2 = 2; 
; Boe O87 : Get actual offset of the last VBN (free_space pointer + 1) 
. . | 
3 8 88 LAST_VBN_OFFSET = .BUCKET C .VBN_OFFSET, 0, 16, 0] + 1; 
; —8 Bao; Now point to the current VBN down pointer found by get_down_pointer 
: 900 089 VON -OFFSET = .VBN.OFFSET 
2 —8 88 BUCKET C BKTSV. PTR_SZ ] + 2) * ( . INDEX +1) ); 
: 8 88 If they are equal then this is the last record in the bucket 
: 905 0898 if .VBN_OFFSET EQLU .LAST_VBN_OFFSET 
: 906 0899 
; 907 0900 RETURN RECLS$_SUCCESS 
; 908 0901 
; 909 090 RETURN RECLS$_FAILURE 
3; 910 0903 2 
3 «911 0904 1 END; 


OC BB 00000 RECLSSCHECK LAST:: 
PUSAR 


#ncn2, R > : 0819 
50 0000° cr 00 999 MOVL INDEX ; 0878 
5 58 AA 3 2) HOV ZL d8ccrx von, oFrser : 0885 
7343 F 0001 PUSHAB =(VBN DOFFSET) (BUCKET) + 0889 
52 9 3¢ 0001 MOVZWL a(SP LAST QBN OFFSET : 
06 16 INCL bast, aie NF ES ; 
EF 0001 EXT y J9. (BUCKET), R1 : 
CO IF ADDL 35 3 
INCL. R : 
C 3 MULL R1, RO 3 
C2 SUBL2 RO, VBN_OFFSET : 
p CMPL vBN_OFFSET, LAST_VBN_OFFSET > 0898 
C BNEG ; 
D MOVL #1, RO + 0902 
1 BRB 2s 3 
D4 1$: CLRL =e RO + 0904 
BA 23: OPR #°M<R2,R3> 
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; Routine Size: 56 bytes, Routine Base: $CODES + 028A 
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MISUN WO 0On 


enw 


RIPIPIMINIMINPIPININIM IAN ast art tt i i — —— — — — a dd dd 


33333333 


———————— 
MVM 


SONS 


S2gEzsess 
SFEERS TANARIS: 
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VAX=11_CONVERT/RECLAIM 
COMPARE _POINTER 


ZSBITL ‘COMPARE — 
GLOBAL ROUTINE RECL 
Functional Description: 


This routine compares the next index record pointer in the current 
buffer for the specified down pointer if necessary is reads in the next 


SCOMPARE POINTER ( VBN ) : RLSJSB_REG_8 = 


bucket in the index chain to get the next index record. 


Calling Sequence: 


COMPARE _POINTER( VBN ); 


Input Parameters: 


VBN - VBN to compare 


Implicit Inputs: 
BUCKET 
INDEX 

Output Parameters: 


None. 
Implicit Outputs: 
none 


Routine Value: 


RECL$_SUCCESS 
RECL$~FAILURE 


Routines Called: 
None. 
Side Effects: 
None. 
BEGIN 


DEF INE_ 
DEF INE 


L 
VBN_OFFS 


FSET 
LAST_VBN_OFFSET, 


SEARTH_BOCKET 


next index record DOES 
next index record DOES 


: REF BLOCK C ,BYTE J; 


- address of buffer containing bucket 
- current index record (set by get_down_pointer 


oint to the vbn 
OT point to the vbn 


42 p 7 
REIRECLREC.B3209°" (9), 
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VAX=11_ CONVERT/RECLAIM 1 
COMPARE POINTER 1 


3454 


SEES ESEEAES: 


BAA AAAAIN AAAI AAAI AAP PI PINPIPIPIRIPIW EY 


— —— — — — — — — — — at a at —2 
32888 wn 


00000000 


— —— — — — — — — 


o A— 


po D vm 


! Initialize offset in bucket to word containing VBN free space pointer 
so we can get the actual offset to the VBN free space. 

VBN_OFFSET = .CTX C CTXS$SW_BUCKET_SIZE ] = 2 = 2; 

Get actual offset of the last VBN (free_space pointer + 1) 
LAST_VBN_OFFSET = .BUCKET C .VBN_OFFSET, 0, 16, 0] + 1; 

: Now point to the current VBN down pointer found by get_down_pointer 


VBN_OFFSET = .VBN_OFFSET - 
( ( .BUCKET C BKTS$V_PTR_SZ ] + 2) * ( .INDEX +1) ); 


f this is not the end of the pointers then check the next vbn here 
lse read in the next index bucket and search there 


ou 


Search in the current bucket 

SEARCH BUCKET = .BUCKET; 

Point to the next vbn 

VBN_OFFSET = .VBN_OFFSET = ( .BUCKET C BKT$V_PTR_SZ ] + 2 ) 


END 
ELSE 


: Get the next bucket (if this is the Last in the chain return failure) 
it BUCKET C BKTSV_LASTBKT J 

RETURN RECLS_FAILURE 

BEGIN 

Search in the search buffer 

SEARCH BUCKET = .RECLSGL_SEARCH_BUFFER; 

: Read in the next index bucket 

CONVSAB_OUT_RAB ( RABSL_UBF ] = .SEARCH BUCKET; 

eaves ouremas beams = Ere epee casas, 2 

SREAD( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_READ_ERROR ); 

: Point to the first vbn there 


VBN_OFFSET = .CTX C CTX$W_BUCKET SIZE ] - 2-2 - 
( .SEARCH_BUCKET C BKT$V_PTR_SZ } + 2 ) 
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RECLSREC VAX=11 CONVERT/RECLAIM 18.36 -1984 23:59:46 VAX=-11 Bliss-32 V4.0-742 P 9 
tet COMPARE_POINTER 3 ———— 3 
: 1027 1 19 4 
2 1054 _ 
1 
Compare the vbns 
31 : 1024 if .VBN EQLU 
; 19 10 5 SEARCH BUCKET C .VBN_OFFSET,0,((.SEARCH_BUCKETC BKT$V_PTR_SZ J+2)*8),0 J 
: 10 5 19 ; RETURN RECL$_SUCCESS 
: 10 10 ; RETURN RECLS_FAILURE 
> 10 3 18 1 END; 
.EXTRN SYSS$READ 
1C BB 00000 RECLSSCOMPARE_POINTER:: 
PUSHR” #*M<R2,R3,R4> : 0906 
54 58 AA 3C 00002 MOVZWL 88 RG + 0966 
52 74 DE 90006 OVAL R4), VBN : 
6249 9F 00009 USHAB (VBN_OFFSET) CBUCKET) + 0970 
53 9E 3c 0000C MOVZWL a@(SP3+, LAST_VBN_OFFSET : 
53 96 0000F INCL LAST_VBN OFFSET : 
51 OD a9 92 03 EF 00011 EXTZv #3, #2, T3(BUCKET), R1 : 0975 
1 02 CO 00017 ADDL2 #2. ; 
50 0000" CF 1 ¢1 OO1A ADDL3 #1, INDEX, RO ; 
50 31 C4 000 9 MULL2 1. RO ; 
3 C2 010 SUBL2 RO, VBN_OFFSET ; 
5 5 bi 00 $ CMPL vBN_OFFSET, LAST_VBN_OFF SET + 0980 
53 98 DO 0008 MOVL. BUCKET, SEARCH_BUCKET : 0986 
52 3 a0 SuaL2 1, VBN_OFFSET : 0990 
50 OD Ad €E8 000 3 1$: BLBS $$ cauckeT) 3$ : 0997 
5 00006 CF D 905 MOVL RECLSGL SEARCH BUFFER SEARCH BYCKET + 1005 
90006 CF 3 90 0003¢ MOVL EARCH BUCKET, CONVSAB_OUT_ RAB+36 : 1009 
0006 CF 58 AA BO 00041 MOVW (CTX, CONV$AB_OUT RAB+ : 1010 
00006 CF 08 A? 00 9047 MOVL (BUCKET), CONV$AB_OOT_RAB+56 + 1011 
00006 CF 9F 0004D PUSHAB CONVSSRMS READ ERROR + 1013 
00006 CF 9F 00051 PUSHAB CONVSAB_OOT RAS : 
000000006 0 ra 094 CALLS #2. SYSSREAD F 
50 0D Q Et 9 EXTZY #3, #2, 13(SEARCH_BUCKET), RO + 1018 
5 ¢ 006 SUBL3 RO, RG. R : 
5 FE AO SE MOVAB -2(RO). veN OFFSET : 1017 
50 0D a3 0 0 EF 6A 2$: EXTZV #3, , 13(SEARCH_BUCKET), RO : 1025 
3 C4 9 MULL2 #8. R : 
9 10 ¢0 0007 ADDL2 #16, RO ; 
51 6263 5 00 EF 00076 EXTZV #0, RO, (VBN_OFFSET)CSEARCH_BUCKET), R1 : 
51 10 AE D} 7¢ y . Ri ; 
BNE ; 
50 1 p V #i, RO > 1029 
‘ BRS 4 3 
D4 3$: CLAL R : 1031 
iC BA 9 4$: POPR #*M<R2,R3,R4> : 
5 RSB 3 
| 
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; Routine Size: 140 bytes, Routine Base: S$CODES + 02C2 
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4 21264 23:59:4 VAX-11 Bliss-32 V4.0-742 P 1 
NTER 12-808=1982 93:32:68 DISKSVMSMASTERSLCONY, SREIRECLREC 832047" (10) 


SBTTL ‘SWING_POINTER' 
LOBAL ROUTINE RECLSSSWING_POINTER ( VBN ) : RLS$JSB_REG_8 NOVALUE = 


Functional Description: 
This routine will stuff the VBN into the curretn index record 


' Calling Sequence: 


SWING_POINTER( VBN ); 
Input Parameters: 

VBN - VBN to stuff 
Implicit Inputs: 


BUCKET - address of buffer containing bucket 
INDEX - index record to stuff 


Output Parameters: 
None. 
Implicit Outputs: 

none 


Routine Value: 
none 


Routines Called: 
None. 

Side Effects: 
None. 


LOCAL 
VBN_OF FSET; 


' Point to current VBN down pointer 

! Which is: Bucket size = 2 bytes for check and spare - 2 bytes for 

: vbn freespace pointer - index into the array 

VBN_OFFSET = .CTX C CTX$W_BUCKET SIZE ] - 2 - 2 - 

7 ( .BUCKET C BKT$SV_PTR_SZ ] + 2) * ( . INDEX + 1 ); 


—— 


448 


LSREC VAX-11 CONVERT/RECLAIM Sep-1984 23:59:4 VAX-11 BL Liss -32 V4.0-742 
dit SWING_POINTER 13-Sep-1984 93: 32368 DISKSVMSMASTER: CCONV. SRCJRECLREC.832; Page 485 
31 1 
3 } : Stuff the vbn 
; HN \ 3 BUCKET C .VBN_OFFSET,O,( ( .BUCKET C BKTSV_PTR_SZ ] + 2) * 8),0 J = .VBN; 
: 11 j 1094 RETURN 
: 11 1095 
: 1105 1096 END; 
OC BB 00000 RECLSSSWING POINTER: 
PUSAR 33*7 : 1033 
52 od Ad 92 0 EF 000 EXTZV 3. é 13 (BUCKET), R2 + 1088 
1 02 =A : 000. ROVAB R2), R1 : 
50 0000° cr Q C7 0000 ADDL3 #1, INDEX, RO : 
9 1 gé 001 MULL2 : 
5 58 AA 001 MOVZWL —3 R3 ; 
50 53 30 C3 00019 SUBL3 , R3, F 
50 0 ¢ 0010 SUBL2  VBN_OFFSET : 1087 
51 52 03 0020 ASHL R2 “RI : 1092 
51 10 c0 0024 ADDL2 #1 : 
7049 51 00 OC AE FO 00027 INSV _—‘*VBN, 50, R1, -(VBN_OFFSET) CBUCKET) : 
OC BA 000 F POPR #*M<R2,R3> + 1096 
05 000 RSB : 


: Routine Size: 49 bytes, Routine Base: SCODES + 034E 
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RECLSREC VAX-11 CONVERT/RECLAIM 1b-Se -1984 23:59:4 VAX-11 Bliss<-32 V4.0-742 P 
—E REMOVE _INDEX_RECORD 12780-1382 93:32:68 DI SKSVMGMASTERSCCONY, SREIRECLREC 832-47" (173 
: 1164 11 ! 
: 1165 11 2 leo 
3 1398 11 : 
3 (11 11 BEGIN 
3: 1168 11 
3 1392 11 LOCAL 
3; 1170 118 OFFSET ! Offset to he vbn_freespace pointer 
: 1171 11 VBN_SIZE, i Size of vbn in bytes 
: 11% 116 BITS ! Size of vbn in bits 
: 117 116 FREESPACE, i Pointer offset to the top of the vbns 
: 1176 11 VBN ! Pointer offset to the vbn to remove 
: 1175 1165 SOURCE, i Pointer offset to the Source 
$ 1178 BY DEST; ! Pointer offset to the Destination 
: 1178 1398 Find the offset to the vbn freespace pointer 
3 1170 OFFSET = .CTX C CTXS$SW_BUCKET_SIZE ] - 4; 
3 11 § 1138 ! Get the size of the vbns in bytes 
3; 118 117 ! 
3: 1186 1174 VBN_SIZE = .BUCKET C BKTS$SV_PTR_SZ ] + 2: 
: 1185 1175 
: 1186 1178 ! Now get it in bits 
3 1187 117 ! 
3 11 1178 BITS = .VBN_SIZE * 8; 
3; 1189 1179 
3 + 1181 : Find the top the vbns 
3 1136 11 ¢ FREESPACE = .BUCKET C .OFFSET,0,16.0 J: 
3: 119 118 
: 1194 11 ! Find the vbn we want to remove 
3 1195 1185 ! 
3 8 VBN = .OFFSET = ( .VBN_SIZE * ( .INDEX + 1) ); 
3; 1198 1188 ' Set up the destindtion 
3 1199 1189 : 
3: 1200 1190 DEST = .VBN; 
: 1201 1191 
31 4 + ' And the source 
3; 120 119 ! 
: 1204 1194 SOURCE = .DEST - .VBN_SIZE; 
3: 1205 1195 
« 1206 1198 ' Do each vbn 
2 1 8 119 : 
: 1208 1138 WHILE .SOURCE GEQU .FREESPACE 
3: 1209 11 dO 
; \ 19 ; 39 2 BEGIN i 
: 1 12 1 2 ‘ ! Copy the vbn to the new location 
; 1 14 1 4 4 BUCKET C .DEST,O,.BITS,O ) = .BUCKET C .SOURCE,0,.BITS,0 2: 
31 16 1 4 ! Update the pointers 
: 121 1 & ' 
: 1 18 1 4 DEST = .DEST - .VBN_SIZE; 
+ 121 1 4 SOURCE = .SOURCE - <VBN_SIZE 
: 1220 1210 4 


14 
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4 VAX-11 Bliss-32 V4.0-742 Pp 5 
68M cbimthastenc clone ene arecurec.e32097 (173 


H } —1 END; 

; 1 § 1 } } Update the freespace pointer in the bucket 

; 1969 1215 BUCKET C .OFFSET,0,16,0 ] = .FREESPACE + .VBN_SIZE; 

:1 3 1 i$ ! If freespace pointer points to * bottom of the bucket it is 

3 3 $ 121 $ enpty so don't bother to fool with the data part (but do set 

; : : 1 ! the keyfreespace pointer) 

> 1231 1221 if .BUCKET C .OFFSET,0,16,0 J EQLU .OFFSET 

3 3 ¢ 1 ¢ THEN 

3 7 1 BEGIN 

3 1 1224 4 BUCKETC BKTSW_KEYFRESPC ] = BKTSC_OVERHDSZ; 

3: 1235 1225 4 RETURN 

3 : ; — END 

; i 8 8 END; 

6 * 

Squeeze out the KEY part of the index record 

oe 

; 124 1236 BEGIN 

> 1248 1238 LOCAL 

3 : 3 38 DELETE_SIZE; 

3 1251 1241 ! Calculate from address and size for squish differently if index is 

3 ; 3 ’ tg : compressed or not. Also do KEYFRESPC depending on index compression. 
; 1254 1244 IF KEV DESCL KEYSV_IDX_COMPR } 

; 56 1266 4 BEGIN 

71 Hf 1268 4 LOCAL 

3: 1259 1249 4 NEXT : REF BLOCK C ,BYTE J; ! Pointer to the next key 

; : $9 } 20 ? ! to replace the deleted one 
:1 8 1 26 4 ! The size of the deleted space is size of the old record MINUS 

3; 126 1 4 ' the DIFFERENCE between the size of next record before compression 
3 1 8 1254 4 ! and the size of it ater compression. 

: ' 5 ! 5 ? } First save the size of old record. 

3 ' 8 DELETE_SIZE = .KEY_POINTER C KEYRSB_LENGTH J) + 2; 

:1 63 — 25 4 ! Next thing to do is recompress the next record after the current 
3: 1270 1260 4 ! one we start by coping it into key_buffer_2 (where the to-be-deleted 
: ’ a! : 8 key is) 

: ' ie \ es ? NEXT = -KEY_POINTER + .KEY_POINTER C KEYRSB_LENGTH ) + 2; 

: \ 8 65 — If there iS a next key then copy it and compress it 

: 1 9 7 8 5 if .NEXT LSSU ( .BUCKET + .BUCKET C BKTSW_KEYFRESPC ] ) 


Se Se Se Ge Se Ge Ge Se Se Ge Ge Se Ge Ge Se Ge Ge Se Se Se Ge Se Ge SF Se Se Se Ge Ge Se Se Se Se Ge Gs Se Se Se Ge SO Se Se Se Ge Ge Se Se Se Se Se Ge Se Se Se Ge Se ee 


14 
RECLSREC VAX=11 CONVERT/RECLAIM 34 2126 23:59: VAX-11 Bliss-32_ V4.0-742 P 
vOG REMOVE _INDEX_RECORD 12-860-1984 13:74:08 D1 SKSVMSMASTERSCCONV. SRCIRECLREC.B32047 (113 
1 THEN 
1 BEGIN 


LOCAL OLD_SIZE; 

: Save the old size of the next record 

OLD_SIZE = .NEXT C KEYRSB_LENGTH J; 

: Copy the next key while expanding the rear 

CHSCOPY ( went : een ponerse 1. 
KET DESC CKEVERREVS2 Te RERT C Ke yRSB FRONT COUNT J, 
KEY_BUFFER_2 + 2 * .NEXT C KEYRSB_FRONT_COONT J J; 

: Recompress the new key in key_buffer_2 

RECOMPRESS_RECORD(); 


! Key_buffer_2 now contains a compressed key (w/control info) 
: so move it into the bucket 


CHSMOVE( .KEY_BUFFER_2 C KEYRSB_LENGTH J + 2, 
KEY BUFFER 2, 
-KEY_POINTER ); 

: Now we can figure the ammount of space deleted 


DELETE_SIZE = .DELETE SIZE - 
( .KEV_POINTER C KEYRSB_LENGTH ) - .OLD_SIZE ); 


AVL SOOO AE I OO NOE UT SONOS 


XXEXXEEXEVEEEEEEEECXXEXEXXEEEEEEEEEEEEEEEEEEEEESES 


8 
10 
9 We must now move the rest of the keys in the bucket 
ig CHSMOVE( ( .BUCKET + .BUCKET C BKTSW_KEYFRESPC ] ) - 
14 -NEXT > .NEXT C KEYRSB_LENGTH ] + 2 ), 
15 NEXT + .NEXT C KEYRSB_LENGTH J] + 3 
8 -XEY_POINTER + .KEY_POINTER C KEYRSB_LENGTH J + 2 ) 
1 END; 
8 END 

ELSE 

BEGIN 


: Set the delete size 
DELETE_SIZE = .KEY_DESC C KEYSB_KEYSZ J; 
: Move the rest of the keys 
CHSMOVE( ( .BUCKET + .BUCKET C BKTSW_KEYFRESPC J ) - 
( KEY wreR + KEY pesc C KEYSB_KEYSZ ] ), 


-KEY_POINTER + .KEY_DESC C KEYSB_KEYSZ 
-KEY-POINTER ) 
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RECLSREC VAX=-11 CONVERT/RECLAIM 18.32 -1984 59:4 VAX-11 Bliss-32 V4.0-742 P 7 
v 3 REMOVE _INDEX_RECORD 12-88-1986 93:32:68 DISKSVMSMASTERSLCONY. SREIRECLREC.B32047" (17 
: 5 } 5 END; 
: i f ? ! Update KEYFRESPC since we squished out a key 
; 1 ; : 3 BUCKET C BKTSW_KEYFRESPC J] = .BUCKET [ BKTSW_KEYFRESPC J] = .DELETE_SIZE 
: 1341 1331 END; 
31 1 : RETURN 
3 1344 1334 
3; 1345 1335 1 END; 


OOFC 8F BB 00000 RECLSSREMOVE_INDEX RECORD: : 
PUSHR #*A<R2,R3.R4,R5,R6,R7> : 1098 
SE 04 ¢2 00004 SUBL2 #4, SP : 
51 58 AA ¢ 0007 MOVZWL 88(CTX), OFFSET + 1170 
51 03 C2 00008 SUBL2 #3, OFFSET : 
98 03 EF 0005 EXTZV #3. #2, 13(BUCKET), VON_SIZE + 117% 
5 02 co 0001 ADDL2 ie VBN_ SIZE F 
52 0 0017 ASHL #3, VBN-SIZE, BITS + 1178 
7149 i 0018 PUSHAB =(OFFSET) (BUCKET) > 1182 
55 9F ¢ OO1F MOVZWL a@(SP)+, FREESPACE : 
0000" CF g ti 00 ADDL3 #1, INDEX, RO > 1186 
30 : C4 00027 MULL2 VBN_SIZE, RO : 
1 t 99 A SUBL3 RO, OFFSET, VBN ; 
53 9 DO 000 F MOVL. VBN, DEST : 1190 
53 C3 000 SUBL3 VBN. SIZE, DEST, SOURCE + 1194 
55 34 bi 0035 1$: CML QURCE. FREESPACE : 1198 
56 0 EF 80 A EXTZV 40, BITS (SOURCE) [BUCKET] RO t 1204 
09 0 FO 00040 INSV. RO, BITS, (DEST) CBUCKET) ; 
t 88 SUBL2 VBN_SIZE, DEST > 1208 
54 3 : 0049 SuBL VBNISIZE. SOURCE + 1209 
6149 9F 804 23: PUSHAB (OFFSET) CBUCKET] + 1215 
55 Al ADDW3 V NSIZE, FREESPACE, a(SP)+ ; 
10 f 3 CMPZV #0 #16, (OFFSET) CBUCKETJ, OFFSET + 1221 
04 a9 8 D MOVW #14, 4(BUCKET) + 12246 
00 51 BRW : 1223 
10 0 1 b4 3$: BBC #3, 16(KEY_DESC), 4$ > 1244 
A 00069 MOVZBL (KEY_POINTER), RO t 1257 
’ AO 9E MOVAB CROT DELETE Size : 
1 A04 MOVAB 26 dEKEY POIRTER » NEXT + 126 
4 A MOVZWL 4(BUCKET)> R : 126 
9 ¢ ADDL2 BUCKET, RO F 
1 p CMPL NEXT, RO ; 
0 1€ BGEQU «5 ; 
g 9A MOVZBL (NEXT), R3 : 1275 
é b0 VL Rs. OL6 SIZE : 
1 1 ADDL3 R3, NEXT, (SP) : 1281 
9 9} A A moviet 4 RO : 1282 | 
4 AB OA MOVZBL 20(KEY_6ESC), R2 : | 
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: Routine Size: 


1 


1336 


: 1346 


mo 
- 
— 
eo 
oa 
Or 
Qre 
Nn 
al 
@o 
. 
=) 
us 
« 
— 
Ls) 
ive} 
e 
_ 
NY 
~ a4 
nw 
§ ». 
os 
- 
wo | 
>w 
—— —2 
* — 
mac °o | 
tw —2 
ne aw 
nn c = 
— — °o 
LS a wv 
an 2 £ / 
= a | 
-> — 
— N o — 
ie J — 0 
—— . w 
<= ov “ ae 
>a - @ i 
S 3 a 
a 
2 Bu 
v ow Pa 
NW ~ ve gy 
wo a ‘eo * 
⸗2 — ea 
ow ce -- 
nee c °o 
ee ee -_ @wvu 
PNG wet 
Ne =] ee 
(= atu eee 
8 ° ° onto) 
coco " Vv oo a=] 
ow @ ee a uu 
— — w i= Ww — — 
se = ~~ 1) >> 
aa | * vo a ao 
mee < @ 2 se 
yw > ao] a 
im) oO c 29 E aT) 
ans 2 - eo o 
Coed 22 —2 aa 
— cc oo 
§ = oe 7) ee 
o ~ aa — ww 
uw «= bas 
t. 4 wn wow ~N >> 
t wn 1 
qa aw nw |= ee ef 
”“ ‘= cc a 
- a oe ~~ our 
S e oa oa 
— °o 2 2 + 
[. 4 Vv cc 2 
@ oo i — 
— ce ~ vv — te 
a ~ e aca 
ca -_— a Le = 
ox c—_ <= as 
co o fw So c ee eee 
wo — 3 t=) - a >> 
aw we w w oo 
= a @ a No wo —R oe 
w” — € ee t ‘+o ° . v2 >> 
mw . — oe w w - =a — a) ee °o 2 hen) 4 
ww D4 ~~ vw WM & Oo ww © 2 vo tw) mw pS 
ew 2 ————⏑ — 2— 2 2 * 2 20 
a. 4 o® oex — > uke © a a — - & em ¢t on se 
= xo oa & 3 @& bd a 23 § — J — “wn x<vo>> = 
— —— = ° c @ 2 2 co = e @o 4 * -— ww om — 
—— — — wn — sooo ttiecee°9gcee#wseeesve oes @& WO »~ ww o 
- we eo--rw”" wit ce — 6 C ec > ¢€ c @e v ees => Zz 
i aw Cc £ w @ o/- ww a 3 = °o o a) Co +} Cc A LW a a Bad Sw) 
wo - a or opFeceaezt- wu — Zz2se2zee2ere-« 2 2222 ww A 
ca - c v ca rs) c c w onion ben len ben! 2 = 
~OoO w a - — - > rod te - Oo «enue — 
ev WIZ re) — | ~ a ~ * oo @ we Wi o 
cw ee c — a a w a a 3 vo @o eaooa @® = 
wor ü 3 oe c E 2 E ° - 
=> t@>a>- u« vw — — — _ = [4 ”n a 
"7 Wor ‘ 
ov FO a ·—— 
= LLL III, 
— 
— 
a * —p BLOM MAGN ON OPO NDS LOO OS —x0 
ba lh lll alah alle kel kk ah eh lea aa ala lal al —R 
el ce —⸗ 


tꝛeoœQaxbereszssass2⸗ 
2222 


FF CSCC EK 


I is now the number of compressed characters 
KEY_BUFFER_2 C KEYRSB_FRONT_COUNT ) = .I; 


15 | 
RECLSREC VAX=-11 CONVERT/RECLAIM 18-22 1984 259:4 VAX-11 Bliss-32 V4.0-742 P 40° 
vos RECOMPRESS_RECORD 1an8epa fb Be F3:52:88 bee SAAS FERS bul oReapecurec 03209" «185, 
' | 
1306 3 Assume no compression 
8 36 KEY_BUFFER_2 C KEYRSB_FRONT_COUNT J = 0; 
409 98 LENGTH = .KEY_DESC C KEYSB_KEYSZ ); | 
ai} 40 1 If this is NOT the first key in the bucket do front compression | 
“1g 40¢ if . INDEX NEQU 0 
414 40 THEN 
415 404 
213 ? 5 Find the first position where the two keys differ | 
418 40 INCR I FROM 0 TO ( .LENGTH - 1) BY 1 | 
yi — 
1 9 If the characters are not equal we found the end 
; 41 if ( .KEY_.1 C .1 J NEQU .KEY_2C .1]) 
4 41 THEN 
5 41 BEGIN 
$ 41 
8 
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wey stent} 


Shorten the length 
LENGTH = .LENGTH = .1; 
: If there was some compression move the key a Little 
IF _.1 NEQU 0 
CHSMOVE( .LENGTH, KEY_2 + .I ,KEY_2 ); 
EXITLOOP 
END; 
: Do rear end truncation 
WHILE .LENGTH GTRU 1 
dO | 
| 
| 
| 
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Now 


: If the trailing characters are the same cut it short 
if cKEV_2 C .LENGTH - 1 ) EQLU .KEY_2 C .LENGTH = 2 ] 
LENGTH = .LENGTH = 1 
EXITLOOP; 
: Set the length field 


KEY_BUFFER_2 C KEYRSB_LENGTH ] = .LENGTH; 
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1§ 
RECLSREC VAX=11 CONVERT/RECLAIM 15-3 -1984 23:59:4 VAX=11 BlLiss-32 V4.0-742 
Hives RECOMPRESS RECORD Fak atts ra te oe Se rt MS 
146 1333 ; RETURN 
146 14 
14 14 END; 
KEY_1= KEY BUFFER. 142 
KEY-2= KEY-BUFFER_2+ 
OOFC  8F BB 00000 RECOMPRESS_RECORD: 
PUSHR #*M<R2,R3,R4,R5,R6,R7> 
5 04 é 0 SUBL2 4, 
0000" CF 7 CL KEY_BUFFER_2+1 
56 14 AB 9A MOVZBL 20(REY_DESC), LENGTH 
0000" CF p 9 F TSTL NDEX 
3 9 13 BEQL 
$f D i MOVL LENGTH, (SP) 
1 CF 0 8 RINEGL “i, 1 
0000'CF47 oooorct 10 is care KEY_1C1J, KEY_2C1) 
0000" CF $7 9 8 A MOVB I, KEY_BUFFER_2+1 
56 57 C2 00020 SUBL2 I, LENGTH 
57 05 000 TSTL 
OF 13 000 BEQL $ 
0000" CF 0000'CF47 6 é 00 MOVC3 ENGTH, KEY_2C1J, KEY_2 
04 11 00030 BRB 
DA 57 E F2 0003F 33: AOBLSS (SP), I, 1$ 
01 6 01 00043 3$: CMPL LENGTH, #1 
OF 18 0046 BLEQU 
0000°CF46 0000'CF46 91 0004 CMPB KEY_2-1CLENGTH], KEY_2-2CLENGTHI 
4 33 boas BNEQ 
6 D 90 ; DECL NGTH 
C 11 0005 BRA 
0000" CF 6 90 00057 4$: MOVB LENGTH, KEY_BUFFER_2 
5E Of co O03 ADDL2 — 
OOF C F BA 0005F POPP #°M<R2,R3,R4,R5,R6,R7> 
05 00063 RS6 
; Routine Size: 100 bytes, Routine Base: SCODES + 047C 
1465 1454 1 
1466 1455 0 END ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 528 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOP IC »AL 1GN(3} 
SCODES 1248 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 
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p 1 
CCONV. SRCIRECLREC.B320 1°" (12) 


c VAX-11 CONVERT/RECLAIM 
RECOMPRESS_RECORD 
Library Statistics 
File Total —— 
—A— SYSL1BIL1B .L32;1 18619 34 
255$DUA28: CCONV. SRC JCONVERT.L32;1 165 11 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RECLREC/OBJ=OBJ$:RECLREC MSRC$:RECLREC/UPDATE=(ENHS$:RECLREC) 


dg # 1248 cgge,* 529 data bytes 


3 
Lexemes/CPU-Min: 15252 
148 * 


Memor AAS; Used: 
Compilation Complete 
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